<?php defined('TSTP_VERSION') or die('forbidden');


/**
* MLT Web Engine
* http://www.molotsoft.ru
*
* @package MLT_WE
* @subpackage Test_Types
* @author Ivan Chistyakov <ivan@molotsoft.ru>
* @version $Id: real.tstp.php 182 2009-03-07 11:49:17Z molotsoft@gmail.com $
* @link $HeadURL: http://test-types.googlecode.com/svn/tags/1.0.4/types/real.tstp.php $
*/


function tstp_real($var) {
	return is_real($var);
}

//function tstp_r($var) { return tstp_real($var); }


function tstp_unsigned_real($var) {
	return is_real($var) && ($var >= 0.0);
}

function tstp_ureal($var) { return tstp_unsigned_real($var); }
//function tstp_ur($var) { return tstp_unsigned_real($var); }


define('TSTP_ZERO_REAL', 0.0);

function tstp_zero_real($var) {
	return is_real($var) && ($var === TSTP_ZERO_REAL);
}

define('TSTP_ZREAL', TSTP_ZERO_REAL);
//define('TSTP_ZR', TSTP_ZERO_REAL);

function tstp_zreal($var) { return tstp_zero_real($var); }
//function tstp_zr($var) { return tstp_zero_real($var); }


function tstp_range_real($var, $minval = NULL, $maxval = NULL) {
	return is_real($var) && in_range($minval, $var, $maxval);
}

function tstp_rreal($var, $minval = NULL, $maxval = NULL) { return tstp_range_real($var, $minval, $maxval); }
//function tstp_rr($var, $minval = NULL, $maxval = NULL) { return tstp_range_real($var, $minval, $maxval); }


?>